home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOOLPAS2 / ADIRS.PAS next >
Pascal/Delphi Source File  |  1990-01-10  |  511b  |  31 lines
  1.  
  2. (*
  3.  * adirs - find all directories in a subdirectory tree
  4.  *
  5.  * Author: S.H.Smith, 5-Apr-86 (16-sep-87)
  6.  *
  7.  *)
  8.  
  9. uses DOS;
  10.  
  11. procedure getfiles(dir: dirstr);
  12. var
  13.    DirInfo:       SearchRec;
  14.  
  15. begin
  16.    writeln(dir);
  17.  
  18.    FindFirst(dir+'\*.*',Anyfile,DirInfo);
  19.    while (DosError = 0) do
  20.    begin
  21.       if ((DirInfo.Attr and Directory) <> 0) and (DirInfo.name[1] <> '.') then
  22.          getfiles(dir+'\'+DirInfo.Name);
  23.       FindNext(DirInfo);
  24.    end;
  25. end;
  26.  
  27. begin
  28.    getfiles('');
  29. end.
  30.  
  31.